home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / techno challenge (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  95 lines
  1. 10 POKE 53280,5: POKE 53281,11
  2. 20 PRINT"[147][155]   TECHNO":PRINT"    INFO"
  3. 30 PRINT,"[145][145][145][145][158] [172][187] [162][172][162][162][187][162]   [162][162] [172][162][187][172][187] [162][172][162][162][187]",,
  4. 40 PRINT" [161][146][161]  [161][146][161]   [146]  [161][146][161][188][190] [146]  [161] [190] [161][146][161]",,
  5. 50 PRINT" [161][188][188] [161][172][162][146]  [146]  [161][146][161]   [146]  [161][146][161][190] [161][172][162][146]",
  6. 60 PRINT" [161][172][146][188] [161][188][146][162][187] [146][162][162][188][188][190][146][190][187][146][162][172][161][146][161]  [161][188][146][162][187]"
  7. 70 PRINT"    JASON FINCH PROUDLY PRESENTS THE"
  8. 80 PRINT"     SECOND TECHNO-INFO CHALLENGE!"
  9. 90 PRINT#"[153]   FOR DETAILS OF YOUR TASK, PLEASE"
  10. 100 PRINT"   READ THE MAGAZINE INSTRUCTIONS VERY[157][157][157][157][163][163][163][163]"
  11. 110 PRINT"   CAREFULLY SO THAT YOU CAN BE SURE"
  12. 120 PRINT"   THAT YOUR ENTRY WILL BE ACCEPTED"
  13. 130 PRINT"  USE A JOYSTICK IN PORT TWO AND PRESS"
  14. 140 PRINT"   THE FIRE BUTTON TO BEGIN, PERHAPS!"
  15. 150 A=127-PEEK(56321)
  16. 160 IF (A AND 16)<>1 THEN 150
  17. 170 JW=10:SC=0:L=3
  18. 180 POKE 53280,0: POKE 53281,0: PRINT "[147]";
  19. 190 Y=0: A$="TECHNO INFO CHALLENGE 3: DEBUG IT!  ": GOSUB 590
  20. 200 Y=1: A$="BY JASON FINCH - SCORE:       LIVES:  ": GOSUB 590
  21. 210 FOR X=0 TO 39
  22. 220 POKE 55296+120+X,10: POKE 1024+120+X,160
  23. 230 POKE 55296+960+X,10: POKE 1004+960+X,160
  24. 240 NEXT
  25. 250 FOR Y=2 TO 23
  26. 260 POKE 55296+Y*40,10: POKE 1024+Y*40,160
  27. 270 POKE 55296+Y*40+39,10: POKE 1024+Y*40+39,160
  28. 280 NEXT
  29. 290 FOR N=1 TO JW
  30. 300 GOSUB 640
  31. 310 GOSUB 700
  32. 320 GOSUB 700
  33. 330 NEXT
  34. 340 IF JW<15 THEN FOR N=1 TO 30-(JW/2): GOSUB 640: NEXT
  35. 350 X=20:P=1444:F=0
  36. 360 BX=20:BY=10:DX=1:DY=1: GOSUB 760
  37. 370 IF PEEK(1024+BY*40+BX)<>32 THEN BX=BX+1: GOTO 370
  38. 380 PRINT""TAB(X)" ### "
  39. 390 PRINT""TAB(X)" ### "
  40. 400 POKE P+54272,1: POKE P,81
  41. 410 A=127-PEEK(56320)
  42. 420 IF (A AND 4)=4 THEN X=X+1
  43. 430 IF (A AND 8)=8 THEN X=X+1
  44. 440 IF X=0 THEN X=1
  45. 450 IF X=35 THEN X=34
  46. 460 F=1-F: IF F=1 THEN 380
  47. 470 POKE P,32
  48. 480 IF BY=5 AND PEEK(P-40)<>32 THEN DY=-DY: SC=SC+3
  49. 490 IF BY=22 AND PEEK(P+40)<>32 THEN DY=-DY: SC=SC+3
  50. 500 IF BX=1 OR BX=38 THEN DX=-DX
  51. 510 IF BY=4 OR BY=23 THEN 810
  52. 520 BX=BX+DX
  53. 530 BY=BY+DX
  54. 540 P=1024+BY*40+BX
  55. 550 IF PEEK(P)=160 THEN DY=-DY: SC=SC+1: GOSUB 760: GOTO 530
  56. 560 IF PEEK(P)<>90 THEN 380
  57. 570 POKEE 1024+BY*40+BX,32
  58. 580 SC=SC+10:JW=JW-1:GOSUB760:GOTO380
  59. 590 PRINT LEFT$("",Y+1);
  60. 600 FOR X=40 TO 1 STEP -2
  61. 610 PRINT MID$("                                      [160]"+A$,X,39)
  62. 620 PRINT "[145]";: NEXT
  63. 630 RETURN
  64. 640 X=INT(36*RND(1))+3
  65. 650 Y=INT(18*RND(1))+1
  66. 660 P=1024+Y*40+X
  67. 670 GOSUB 770: IF R=1 THEN 640
  68. 680 POKE P+54272,14: POKE P,102
  69. 690 RETURN
  70. 700 X=INT(36*RND(1))+3
  71. 710 Y=INT(18*RND(1))+5
  72. 720 P=1024+Y*40+X
  73. 730 GOSUB 770: IF R=1 THEN 700
  74. 740 POKE P+54272,13: POKE P,90
  75. 750 RETURN
  76. 760 PRINT"";TAB(24);L;TAB(37);SC:RETURN
  77. 770 R=0: FOR X1=-1 TO 1: FOR Y1=-1 TO 1
  78. 780 IF PEEK(P+Y1*40+X1)<>32 THEN R=1
  79. 790 NEXT X1,Y1
  80. 800 RETURN
  81. 810 PRINT""TAB(X)"     "
  82. 820 PRINT""TAB(X)"     "
  83. 830 PRINT"YOU'RE SUPPOSED TO HIT THE BALL, MATE!"
  84. 840 IF L=1 THEN 890
  85. 850 PRINT"GET READY TO CONTINUE - PRESS FIRE"
  86. 860 A=127-PEEK(56320)
  87. 870 IF (A AND 16)<>16 THEN 860
  88. 880 K=L-1: GOTO 180
  89. 890 PRINT"YOUR GAME'S UP!!! - PRESS FIRE"
  90. 900 PRINT"INCIDENTALLY, I DON'T THINK MUCH"
  91. 910 PRINT"TO YOUR RATHER LOW SCORE"
  92. 920 A=127-PEEK(56320)
  93. 930 IF (A AND 16)<>16 THEN 930
  94. 940 RUN
  95.